home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / SASETUP.MSI / F77547_ots_sort.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  1.6 KB  |  73 lines
  1. <%    '==================================================
  2.     ' Module:    ots_sort.asp
  3.     ' Synopsis:    Sorting routines for Object Task Selector
  4.     ' Copyright (c) Microsoft Corporation.  All rights reserved.
  5.     '================================================== %>
  6. <%
  7.  
  8. Const vbCompareText = 1
  9. Const vbCompareLT = -1
  10. Const vbCompareEQ = 0
  11. Const vbCompareGT = 1
  12.  
  13. ' --------------------------------------------------------------
  14. ' 
  15. ' Function:    OTS_SortTable
  16. '
  17. ' Synopsis:    Sort the tables rows data. The quick sort needs to use
  18. '            StrComp so a text (rather than binary) compare is
  19. '            performed. 
  20. ' 
  21. ' Arguments: [in] The table
  22. '
  23. ' Returns:    The sorted Table object
  24. '
  25. ' --------------------------------------------------------------
  26. Public Function OTS_SortTable(ByRef Table, ByVal keyCol, ByVal sortSequence, bUseCompareCallback)
  27.     Dim min
  28.     Dim max
  29.     Dim rc
  30.     Dim rows
  31.  
  32.     SA_ClearError()
  33.  
  34.     '
  35.     ' Validate arguments
  36.     If ( Len(bUseCompareCallback) <= 0 ) Then
  37.         bUseCompareCallback = FALSE
  38.     End If
  39.     
  40.     If ( (bUseCompareCallback <> TRUE) AND (bUseCompareCallback <> FALSE) ) Then
  41.         bUseCompareCallback = FALSE
  42.     End If
  43.  
  44.  
  45.     If ( (sortSequence <> "A") AND (sortSequence <> "D") ) Then
  46.         sortSequence = "A"
  47.     End If
  48.     
  49.     
  50.     rc = OTS_GetTableRows(Table, rows)
  51.     if ( rc = gc_ERR_SUCCESS ) Then
  52.         
  53.         min = 0
  54.         max = UBound(rows)-1
  55.  
  56.         Dim maxCols
  57.         maxCols = UBound(rows(0))+1
  58.  
  59.  
  60.         Call OTS_SetTableSortCriteria(Table, keyCol, sortSequence)
  61.  
  62.         Call SAQuickSortEx(rows, min, max, maxCols, keyCol, sortSequence, bUseCompareCallback)
  63.  
  64.         rc = OTS_SetTableRows(Table, Rows)
  65.  
  66.     Else
  67.         rc = gc_ERR_SUCCESS
  68.     End If
  69.     
  70.     OTS_SortTable = rc
  71. End Function
  72. %>
  73.